home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Shareware World / Comms & Internet / Anarchie Pro 3.0 / Scripting / AppleScripts / DropPut Example 2 < prev    next >
Encoding:
Text File  |  1998-08-28  |  423 b   |  20 lines  |  [TEXT/ToyS]
  1. -- demonstration of new Anarchie 2.0 feature
  2.  
  3. -- note lack of password in whereto URL, Anarchie 2.0 will
  4. -- now prompt you for a password if it sees a username
  5. -- inside the ftp URL
  6.  
  7. property whereto : "ftp://user:@host/path/"
  8.  
  9. on open doc
  10.     if doc's class is not list then
  11.         set doc to {doc}
  12.     end if
  13.     repeat with i in doc
  14.         tell application "Anarchie Pro"
  15.             activate
  16.             store i url whereto
  17.         end tell
  18.     end repeat
  19. end open
  20.